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1.  Introduction 


Given  a  lar(ge  set  of  measurements  of  some  quantity  or  variable,  it 
is  often  useful  to  model  the  data  using  some  statistical  distribution 
function.  For  example  if  one  has  records  of  the  "visibility"  at  Milden- 
hall,  England  for  10  a.m.  February  over  a  number  of  years,  one  may  fit 
a  Weibull  distribution  to  the  data.  The  Weibull  distribution  has  two 
Parameters,  and  the  values  selected  for  the  two  parameters  are  the  ones 
for  which  the  model  best  fits  the  data. 


This  report  documents  a  FORTRAN  program  that  has  been  written  to 
estimate  the  parameters  of  a  statistical  distribution  function  which 
best  fits  a  set  of  measurements  on  some  variable.  The  fit  is  "best" 
in  the  sense  that  the  model  cumulative  distribution  function  and  the 
empirical  cumulative  distribution  function  (from  the  data)  are  closest 
to  each  other  in  the  least  squares  sense. 


Suppose  the  measurements  are  ordered  from  smallest  to  largest, 
that  is  -  x(2)  ~  X(3)  X(N)  w^ere  x(i)  rePresents  the  ith 

smallest  measurement.  Then  the  empirical  cumulative  distribution  function 
may  be  defined  as 


✓N 


(x) 


21-1 

2N 


for  x^^  ^  x  < 


X(i+1) 


«  0  for 


x  <  x 


(1) 


(1.1) 


If  F(x;9)  is  the  model  cumulative  distribution  function,  then  the  values 
for  9  (9  may  be  a  vector  of  values)  which  are  chosen  are  those  which 
minimize  the  expression 

N  f  -,2 

I  [(21-1)/(2N)-F(xi;0)l  .  (1.2) 

In  the  FORTRAN  program,  the  determination  of  9,  is  accomplished  by  non¬ 
linear  regression  techniques  where  F^(x)  *  (2i-l)/(2N)  for  i  *  1,2, ...,N, 

is  the  dependent  variable.  Expression  (1.2),  the  quantity  to  be  minimized, 
is  the  "Residual  Sum  of  Squares".  A  detailed  description  of  the 
techniques  used  to  fit  distributions  to  data  using  non-linear  regression 
techniques  is  given  in  Heuser,  Somerville  and  Bean  (198ft) 
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2.  Flow  Chart 


In  non-linear  regression,  the  model  may  be  written 

y  -  F(x;G)  +  e  ,  (2.1) 

where  9  represents  a  vector  of  unknown  parameters. 

The  usual  technique  is  to  linearize  F(x;G)  by  the  use  of  a  first  order 
Taylor  Series  expansion  about  guessed  values  0O.  The  expression  (2.1) 
is  then  linear  in  (0-Qo),  and  the  usual  least  squares  regression 
methods  may  be  used  to  estimate  B-G0,  the  "correction*1  to  the  original 
guessed  value.  The  procedure  is  then  repeated  with  a  first  order 
Taylor  Series  expansion  about  the  "corrected"  guessed  value  for  9, 
the  process  terminating  when  the  percentage  reduction  in  residual  sum 
of  squares  is  less  than  some  specified  amounts.  The  flow  chart  below 
outlines  the  program. 
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3.  FORTRAN  Code 


C***************************** ***************************************** 
C  * 

c  title:  weibull  nonlinear  regression  program  * 

C  THE  FOLLOWING  PROGRAM  REGRESSES  VISIBILITY  DATA  ON  THE  * 

C  WEIBULL  DISTRIBUTION.  * 

C  * 

c  input:  n.  x'i:n)!  acc.  and  yu:n)  (see  variable  dictionary)  * 

C  N .  X(ltN),  AND  ACC  ARE  INPUT  ONCE  IN  THE  BEGINNING  OF  THE  * 

C  PROGRAM.  Y(i:N>  IS  INPUT  ONCE  FOR  EACH  REGRESSION.  * 

C  * 

C  OUTPUT:  SUMMARY  STATISTICS  OF  EACH  REGRESSION  INCLUDING  ALPHA >  BETA.* 
C  MONTH.  HOUR.  SID.  RMS.  COUNT.  X(i:N).  Y(IJN).  PREDICTED  * 

C  VALUES  OF  THE  DISTRIBUTION.  AND  THE  RESIDUALS.  * 

C  * 

c  subroutines:  guess,  sse.  weibull.  PSSEA.  psseb.  success,  fail.  * 

C  SECANT.  CORVEC.  MODL.IN  * 

C  * 

C  FOP  A  GENERAL  OVERVIEW  OF  THE  REGRESSION  PROBLEM.  SEE  ‘LEAST  * 

SQUARES  FITTING  OF  DISTRIBUTIONS  USING  NON-LINEAR  REGRESSION'  BY  * 

MARK  HEUSER.  PAUL  SOMERVILLE.  AND  STEVE  BEAN.  * 

* 

******** ******************************************************** ****** 

********************************************************************** 

* 

VARIABLE  DICTIONARY 

N:  THE  NUMBER  OF  OBSERVATIONS  (MAXIMUM  OF  15) 

X(i:N>:  THE  VALUES  OF  THE  INDEPENDENT  VARIABLE  (DISTANCE) 

c  yu:n>:  the  observed  visibility  probabilities  at  each  x 

C  ALPHA.BETA:  THE  PARAMETERS  IN  THE  WEIBULL  MODEL 

C  3TARTA.STARTB*.  THE  STARTING  VALUES  FOR  ALPHA  AND  BETA  COMPUTED  BY 
C  THE  SUBROUTINE  'GUESS' 

C  CORA.CORB:  THE  CORRECTION  VECTORS  FOR  ALPHA  AND  BETA  COMPUTED  BY 
C  THE  SUBROUTINE  'CORVEC' 

C  NRSS.ORSS:  THE  RSS  FOR  TWO  CONSECUTIVE  ESTIMATES  OF  ALPHA  AND 
C  BETA.  NRSS  IS  FROM  THE  NEWER  ESTIMATE?  0RS3  IS  FROM 

C  THE  OLDER  ESTIMATE. 

C  MONTH.HOUR.SID:  MONTH.  HOUR.  AND  STATION  IDENTIFIERS 
c  count:  a  LOOP  COUNTER 

C  CONVERGE:  a  LOGICAL  VARIABLE  THAT  INDICATES  CONVERGENCE. 

C  ACC!  AN  INTEGER  VALUE  CONTROLLING  THE  ACCURACY  OF  THE  STARTING 
'I  VALUES  FOR  ALPHA  AND  BETA.  SEE  SUBROUTINE  'GUESS'. 

C 

n ********************************************************************* 
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c 

c 


c 

10 


REAL  ALPHA  , BETA  »  X  <1 5  > , Y( 15) , ST ART A , STAR TP , NRSS * OKSS , CORA , CORE 

REAL  SSE  , WEI BUL  ,  RMS 

INTEGER  SID, MONTH. HOUR* N, COUNT , ACC 

LOGICAL  CONVERGE 

COMMON  N,X,Y 

WRITE (6, 200)  !  PRINT  A  TITLE 


READ » N 

READ , <X( I ) , 1=1 r N> 
READ, ACC 


!  INPUT  THE  NUMBER  OF  OBSERVATIONS 
!  INPUT  VALUES  OF  THE  INDEPENDENT  VARIABLE 
!  INPUT  LEVEL  OF  ACCURACY  OF  STARTING  VALUE 


1  THE  FOLLOWING  LOOP  INPUTS  AND  REGRESSES  ON  THE  EMPIRICAL 
1  DISTRIBUTION.  THE  LOOP  (AND  THE  PROGRAM)  TERMINATES  ON 
'  END  OF  FILE. 


READ (5, 100, END =40)  (Y(I), 1  =  1, N) , SID , MONTH , HOUR 


CALL  GUESS<STARTA, STARTS, ACC)  !  GET  STARTING  VALUES  FOR  ALPHA 
ALPHA- ST ARTA  !  AND  BETA 

BETA=STARTB 
NR3S=SSE ( ALPHA , BETA) 


*  THE  FOLLOWING  LOOP  SOLVES  FOR  ALPHA  AND  BETA.  CONVERGENCE  IS 
1  ASSUMED  WHEN  THE  PROPORTIONAL  CHANGE  IN  THE  RSS  FOR  TWO  CON 
!  SECUTIVE  ESTIMATES  IS  LESS  THAN  IE-7. 
r 

COUNT  =  0  !  INITIALIZE  THE  LOOP  CONTROL. 

CONVERGE^. FALSE.  !  VARIABLES 

C 

20  IF  ( (COUNT. GT. 50) .OR. (CONVERGE) )  GOTO  30 

QRSS-NRSS 

CALL  CORVEC ( ALPHA , BETA , CORA , CORB ) 

CALL  MODL IN (ALPHA, BETA, CORA, CORB) 

NRSS=SSE( ALPHA, BETA) 

CONVERGE=ABS ( ORSS-NRSS ) .LT. ( ORSS* 1 . 0E-? ) 

C0UNT=C0UNT+1 
GOTO  20 
r 

30  IF  (CONVERGE)  THEN 

CALL  SUCCESS (SID , MONTH , HOUR , ALPHA , BETA , NRSS , COUNT > 

ELSE 

CALL  FAIL (SID, MONTH, HOUR, ST ART A, STARTS, ALPHA, BET A, NRSS) 

END  IF 
r 

GOTO  10 

C 

AO  STOP 

r 

I  VO  FORMAT  (IX  , UFA. 3, 15, 12,11) 

COO  FORMAT ( /// , 35X , 'NONLINEAR  REGRESSION  OF  THE  WE I BULL  MODEL  ON  ', 
%  'VISIBILITY  DATA' ,///) 

END 
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c 

C*#******#***********###*#*#*##*######*######*####*####### ###*####**** 


C  * 
C  WEIBUL  IS  A  REAL  FUNCTION  THAT  COMPUTES  THE  VALUE  OF  THE  WEIBULL  * 
C  DISTRIBUTION  FOR  THE  INPUT  PARAMETERS  X,  ALPHA ,  AND  BETA.  ALL  * 
C  COMMUNICATION  WITH  THE  PROCEDURE  IS  THROUGH  THE  PARAMETER  LIST  * 
C  AND  FUNCTION  NAME.  * 
C  * 


C  ****  *  ¥*  *#  #  #¥  *##  ******  in  #  *  #***  *  **#  #  *************  #  **#  ******************  # 

c 

REAL  FUNCTION  WE  I BUL ( X , ALPHA , BETA ) 

REAL  X  ,  ALPHA  , BETA 

WE  I  BUL  =  1 ,0-EXP(-ALPHA*(X**BETA)  ) 

RETURN 

END 

C 

C  * 

C  SSE  IS  A  REAL  FUNCTION  THAT  COMPUTES  THE  SUM  OF  THE  SQUARED  ERRORS  * 
C  IN  THE  WEIBULL  MODEL  AS  A  FUNCTION  OF  ALPHA  AND  BETA.  COMMUNICA-  * 
TION  WITH  THE  PROCEDURE  IS  DONE  THROUGH  THE  PARAMETER  LIST,  THE  * 
FUNCTION  NAME,  AND  THE  COMMON  BLOCK.  * 

* 

C*#*M ************ ****** ***##¥»¥#**¥*#*¥*##¥♦****#♦**####*♦*##**¥*¥#¥* 

C 

REAL  FUNCTION  SSE ( ALPHA , BET A ) 

INTEGER  I ,  N 

REAL  ALPHA, BETA, X< 15 > , Y< 15) , WE  I BUL 
COMMON  N , X  ,  Y 
SSE=0 . 0 
DO  10  I ~ 1  ,  N 

BSE-SSE+  <  Y  ( I  >-WEIBUL.(X(  I ) ,  ALPHA,  BET  A)  )#*2 
1.0  CONTINUE 

RETURN 
END 

r; 

C¥*t*#*r***** ##*#*** ###*#####*#*#**+#* *** 


C  CCRVEC  IS  A  SUBROUTINE  THAT  COMPUTES  THE  CORRECTION  VECTORS  CORA  ¥ 
C  AND  CORB.  COMMUNICATION  WITH  THE  PROCEDURE  IS  DONE  THROUGH  THE  * 
C  PARAMETER  LIST  AND  THE  COMMON  BLOCK.  THE  INPUT  PARAMETERS  ARE  ¥ 
C  ALPHA  AND  BET  A  j  OUTPUT  PARAMETERS  ARE  CORA  AND  CORB.  ¥ 

r  * 


C ***¥*¥¥¥♦¥*********¥**¥¥¥¥¥¥¥¥*¥¥¥**¥¥¥¥¥*¥¥¥****¥*¥¥*¥*¥*¥ **¥****¥¥¥ 

C 

SUBROUTINE  CORVEC ( ALPHA , BETA , CORA , CORB ) 

INTEGER  I  ,  N 

REAL  ALPHA, BETA, CORA, CORB 

REAL  DERA,DERB,TEMP,RS,WEIBUL,C11 »C12»C22,D1 ,D2 
REAL  X(15>,Y(15> 

COMMON  N , X  ,  Y 
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1 

1 


1 


10 


Cl  l-o.o 

Cl  2  =  0  *  0 
C22  =  0  ♦  0 
D 1  =  0 # 0 
D2  =  0 . 0 


C11fC12*C22fD1f  AND  D2  REPRESENT  A  SYMMETRIC 
SYSTEM  OF  2  EQUATIONS  IN  2  UNKNOWNS#.  THE  2 
UNKNOWNS  ARE  CORA  AND  CORD#  HERE  C  1  J  •  Cl.  2  •  C22 - 
Dlt  AND  D2  ARE  INITIALIZED  TO  0#  IN  THE  DO 
LOOP  THAT  FOLLOWS  ?  THEIR  VALUES  ARE  COMPUTED. 


DO  10  1  =  1  fN 

RS  =  Y ( I ) -WEIBUL ( X  < I ) ? ALPHA  f BETA )  !  RS  =  OBS-EXF' 


TEMP=X( I >**BETA 
DERA=TEMP#EXP< -ALPHA* TEMP ) 

DERB=DERA*ALOG(X< I ) )*ALPHA 

C11=C11+(DEPA**2> 

C12*C12+<DERA#DERB> 

C22=C22+(DERB#*2> 

D1=D1  + «DERA*RS> 

D2-D?+( BERBERS) 

CONTINUE 


»  DERIVATIVE  WITH  RESPECT 
!  TO  ALPHA 

!  DERIVATIVE  WITH  RESPECT 
!  TO  BETA 
!  COMPUTE  Cli 
!  COMPUTE  C 1 2 
•  COMPUTE  C 2 2 
1  COMPUTE  D 1 
!  COMPUTE  B2 


TEMP* <C11*C22 >- (C12**2> 


C  0  R  A  =  ( (D1*C22)-(D2*C12> >/TEMP 
CORB=( <C11*B2)-<D1*C12> >/TEMP 
RETURN 
END 


!  NOW  THE  SYSTEM  IS  SOLVED 
!  USING  CRAMER #  S  RULE 
!  TEMP  IS  THE  DETERMINANT 


C **♦'♦#*#*****♦***#*##***###*#*#*#*#*###**#♦#**##*** *#**#*#***V*  ******** 


C  Y 

C  MODLIN  IS  A  SUBROUTINE  THAT  IMPLEMENTS  THE  MODIFICATION  OF  THE  * 

C  LINEARIZATION  METHOD  PROPOSED  BY  H#0#  HARTLEY  IN  HIS  PAPER  “THE  * 

C  MODIFIED  GAUSS-NEWTON  METHOD  FOR  THE  FITTING  OF  NON-LINEAR  REGRESS-  > 
C  ION  FUNCTIONS  BY  LEAST  SQUARES# 1  ALL  COMMUNICATION  WITH  THE  RFGC- 
r  DURE  IS  DONE  THROUGH  THE  PARAMETER  LIST?  ALPHA  t  BETA  *  CORA  ?  CORF  .  * 

C  MODLIN  OPTIMIZES  THE  CORRECTION  VECTORS  COMPUTED  BY  CORVEC  AND  THEN  ■; 
C  ADDS  THEM  TO  ALPHA  AND  BETA#  WHEN  THE  PROCEDURE  RETURNS  ?  ALPHA  AND  + 
0  BETA  ARE  THE  NEW  PARAMETER  ESTIMATES#  THE  VALUES  OF  CORA  AND  CORD  * 
C  MAY  HAVE  BEEN  CHANGED  IN  THE  PROCEDURE#  * 


C  v*  *  *  *  t  *************************** 1 ************************************+ 

SUBROUTINE  MODLIN ( ALPHA » BETA f CORA » CORE ) 

REAL  ALPHAfBETAfCORAfCORB 
REAL  QOfCU.  fQ2fVfSSEfDEN0M 
REAL  TEMP 
C 

!  LET  THETA= ( ALPHA  f  BETA )  BE  THE  CURRENT  PARAMETER  VALUES  AND 
'  DELTA=(CORArCORB>  BE  THE  CORRECTION  VECTOR#  MODLIN  ESTIMATES 
!  THE  VALUE  OF  V>=0  THAT  MINIMIZES  SSE < THET A+ V*DELT A » *  SSE  IS 
i  COMPUTED  AT  THETA  (00)  r  THETA+  #  5*DEL  T  A  <01  >f  AND  THETA4-  D  E  L  T  A 
1  (02).  V  IS  FOUND  SO  THAT  THETA+V* DELTA  IS  THE  VERTEX  OF  THE 
!  PARABOLA  PASSING  THROUGH  00-  01?  AND  Q2# 
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Q 0  =  S S E  < ALPHA* BETA) 

G1=SSE(ALPHA+.5*C0RAfBETA+.5#C0RB) 

G2=SSE( ALPHA+CORAf BETA+CORB) 

C 

10  DEN0M=4.0*<a2+G0-<2.0*Gl>  ) 

C 

!  IF  DENOM  IS  CLOSE  TO  ZERO  THEN  WE  CAN'T  COMPUTE  V  WITHOUT 
!  PRODUCING  A  DIVIDE-BY-ZERO  OR  FLOATING-POINT-OVERFLOW 
!  ERROR.  IN  THIS  CASE*  ADD  THE  CORRECTION  VECTOR  ASSOCIATED 
1  WITH  THE  MINIMUM  OF  01  AND  G2  TO  ALPHA  AND  BETA. 

C 

IF  ( ABS'DENOM)  .LT. IE-15)  THEN 
IF  (Q1.LT.Q2)  THEN 
ALPHA=ALPHA+*5*C0RA 
BETA=BETA+.5#C0RB 

ELSE 

ALPHA ^ALPHA+C ORA 
BETA-BETA fCORB 
END  IF 
RETURN 
END  IF 
C 

V  - ♦ 5  +  < ( Q0-Q2 ) /DENOM ) 

T E M F* ” S S E  (  ALPHA+V*CORA*BETA+V*CORB) 

*  IF  V<0  OR  TEMP > G 0  THEN  THE  COMPUTATION  OF  V  IS  REDONE  WITH 
1  DELTA* . StDELTA ♦ 

0 

IF  <  <  V . LT ♦ 0 ♦ 0 ) ♦ OR • ( TEMP ♦ GT  *  GO  )  )  THEN 
CORA* . 5*C0RA 
CQRB=.5*C0RB 
G  2 r-  G 1 

G1=SSE< ALPHA* . 5*C0R A  *  BET  A  + .5*C0RB> 

GOTO  10 
END  IF 
r 

ALPHA*ALPHA+V*CORA 

BETA=BETA+V¥CORB 

RETURN 

END 


C**  *  *************************%*************.************* ************* 


C  * 

:::  guess  is  a  subroutine  that  finds  starting  values  for  alpha  and  * 

C  BETA.  COMMUNICATION  WITH  THE  PROCEDURE  IS  THROUGH  THE  PARAMETER  * 
C  LIST  AND  THE  COMMON  BLOCK.  ALPHA  AND  BETA  ARE  BOTH  OUTPUT  PARA-  * 
C  METERS?  ACC  IS  AN  INPUT  PARAMETER.  * 

C  * 


c#  *********************************************** ******************** 


-v; 
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UBROtJTINE  GUESS'  ALPHA  *  BETA  >  ACC  ) 

EXTERNAL  PSSEA  * PSSEB 
INTEGER  I  *  J  *  N  *  E  <  3  >  >  ACC 

REAL  ALPHA *  BETA  *  C ( 3  > *D<3) * T1 * T2 * PSSEA » PSSEB 
REAL  X '  1  !i  '• »  Y  ( 1 5  ) 

LOGICAL  CONVERGE 
COMMON  N  *  X  *  Y 

1  GIVEN  TWO  DATA  POINTS  IN  THE  EMPIRICAL  D I STR I  BUT  I ON *  WE  CAN 
!  SOLVE  FOR  ALPHA  AND  BETA  SO  THAT  THE  WE  I BULL  MODEL  FITS 
!  THROUGH  THOSE  TWO  POINTS  EXACTLY.  GUESS  CHOOSES  THREE  DA i A 
'  POINTS  AND  FITS  THE  WE  I  BULL  THROUGH  THE  FIRST  TWO  *  THE  LAS' 

1  TWO*  AND  THE  FIRST  AND  LAST  POINTS*  THUS  ARRIVING  AT  THREE 
1  DIFFERENT  ESTIMATES  FOR  ALPHA  AND  BETA.  T  He  AVERAGE?  W  r>‘t 
'  THREE  ESTIMATES  ARE  USED  AS  STARTING  VALUES  FOR  URUA  A 
!  BETA 

ALPHA =0.0 
BETA=0 . 0 

IF  ( Y«N> .EQ.O .0)  RETURN 

E  ( 1  >  =2  !  THE  VALUES  OF  E(  1  >  ,  E<2>.  AND  E<3>  DETERMINE 

E ( 2 ) =8  !  WHICH  THREE  DATA  POINTS  ARE  CHOSEN.  HERE  I  HI 

E  <  3 )  =  1 3  •  2ND  *  8TH  *  AND  13TH  POINTS  ARE  USED. 

DO  20  1=1,3 

o  ■:  i)=x(E(i>  > 

IF  (Y'E' I > > .EQ.O.O)  THEN 
C(  I  >'-.00001 
ELSE 

C  (  I )  -  Y  (  E  (  I  >  ) 

END  IF 
CONTINUE 

DO  30  1-3*3 
J- MOD ( 1 , 3  >  + 1 

T 1  =ALOG  <  AL06 ( 1 .0-C( I ) >/ALOG< 1 . 0 - C  <  J ) ) > /ALQG ( D ( I )/IK  J) ) 
DETA=BETA+T 1 

ALPHA -  AL.PHA+  (  -ALOG  ( 1 . 0 - C  ( I )  )/D(  I  )**T1 ' 

CONTINUE 

ALPHA  =  ALPHA/3 . 0 
BETA37 BETA/3 . 0 

!  MOST  OF  THE  TIME  THESE  STARTING  VALUES  WILL  BE  GOOD  ENOUGH  T 
!  BEGIN  THE  NONLINEAR  REGRESSION  PROCEDURE.  SOME  CASES 
1  HOWEVER*  WILL  REQUIRE  EVEN  MORE  ACCURATE  STARTING  VALUES. 

1  THE  FOLLOWING  CODE  OPTIONALLY  IMPROVES  THE  STARTING  VALUES 
'  DEPENDING  ON  THE  VALUE  OF  ACC.  ACC  IS  MERELY  THE 
i  NUMBER  OF  TIMES  THE  LOOP  BELOW  IS  EXECUTED.  THE  LOOP  TRTFF 
'  TO  OPTIMIZE  ALPHA  FOR  A  FIXED  BETA.  AND  THEN  OPTIMIZES  BETA 
’  FOR  A  FIXED  ALPHA. 


L 

r 


40 

50 


IF  <  ACC ♦ LE  *  0 )  RETURN 

00  AO  I  *- 1  *  ACC 
II *ALPHA 
T  2  ~  B  E  T  A 

CALL  SECANT ( ALPHA * BETA * ALPHA *PSSE A * CONVERGE) 

IF  (CONVERGE)  CALL  SECANT (ALPHA? BETA*  BET  A  *  PSSEB  * CONVERGE ) 
IF  ( .NOT ♦ (CONVERGE) )  GOTO  50 
CONTINUE 
RETURN 
ALPHA=T 1 
B  E  T  A  =  T  2 
RETURN 
END 


C't-1 \  t  V*  *  k  '*'***%%****  If  It  %*%%*%%*%*%%%*  *%*  *%%%%%%%%%%%%%%%%%%%%%*  tttVtlflt  %%* 

r  * 


C  FAIL  IS  AN  OUTPUT  ROUTINE  CALLED  WHEN  A  DISTRIBUTION  FAILS  TO  CON-  * 
C  VERGE  AFTER  50  ITERATIONS*  THE  VALUES  OF  SEVERAL  VARIABLES  ARE  * 
C  WRITTEN  TO  THE  OUTPUT  FILE*  COMMUNICATION  WITH  THE  PROCEDURE  IS  * 
C  DONE  THROUGH  THE  PARAMETER  LIST  AND  THE  COMMON  BLOCK ♦  ALL  PARA-  * 
C  METERS  ARE  INPUT  PARAMETERS*  * 
V  1 
r  4rf  *  *  *  t  *1f**l(*1f  if  ******* 


SUBROUTINE  FAIL ( SID * MONTH * HOUR * STARTA » STARTB * ALPHA * BETA * NRSS  ) 
INTEGER  5ID?M0NTH*H0UR*N* I 

REAL  STARTA * STARTB* ALPHA* BET  A  *  HRSS *  TEMP  *  X ( 1 5  >  *  Y ( 1 5 >  * SSE 
COMMON  N*Y*Y 


TEMP  "SSE  <  ST  ART A • STARTB ) 

WRITE' 6* 100' 

WRITE (5-200)  SID* MONTH  *  HOUR 
Wr I  7  E  (  6  *  3  00  > 

WRITE ( 6  *  400 )  STARTA* STARTB  *  TEMP 
WR I TE  <  6 * 500 )  ALPHA  *  BET A  * NRSS 
WRITE (6 *600) 

WRITE*  6 * 700  ) 

DO  10  1=1 ? N 

WRITER  6  .  3 C* 0  >  X  (  I )  *  Y  ( I  > 

10  CONTINUE 

R E TURN 


'00  FORMAT  \  /  ■'/  *  T32  *  25  (  '  *  '  >  *  ///  ) 

".’'00  FORMAT  (  /  r  1 X  *  ATTENTION*  STATION  '*12*  '.  MONTH  '*12*'*  HOUR  '  ? 

T  II*'  FAILED  TO' */* IX* 'CONVERGE  AFTER  50  ITERATIONS.') 

300  FORMAT*/. IX* ' A  VARIABLE  DUMP  FOLLOWS:'*/) 

100  FORMAT (IX* 'STARTA*' *G15.7*  '  STARTB* ' *  G 1 5 . 7  < 

$  '  SSE(STARTA*STARTB)*' >G15*7) 

COO  FORMAT (IX* ' ALPHA= ' *G15.7* '  BE T A= ' * G 1 5  *  7  * 

%  '  SSE ( ALPHA  *  BETA )  =  ' *G15.7) 

fOO  FORMAT (/*5X* 'ENDPTS' *14X* ' OBCUMFR ' ) 

"AO  FORMAT  (  '  +  '  *4X*  ' _ '  *  14X*  ' _  '  »  /  > 

000  FORMAT' IX* G15*  7*5X* 615*7) 

E  N  *j 
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1 


r  *************%***  +  *****#***%*  +  ****  ¥******)%*#* t******* t  *  +  ft** if f 


'.:  SUCCESS  IS  AN  OUTPUT  ROUTINE  CALLED  WHEN  A  DISTRIBUTION  CONVERGE  *  ♦ 
C  SUCCESSFULLY  WITHIN  50  ITERATIONS*  SUMMARY  STATISTICS  OF  T  H F.  1 
C  REGRESSION  ARE  WRITTEN  TO  THE  OUTPUT  FILE*  COMMUNICATION  WITH  * 
C  THE  PROCEDURE  IS  THROUGH  THE  PARAMETER  LIST  AND  COMMON  BLOCK  * 
0  ALL  PARAMETERS  ARE  INPUT  PARAMETERS*  * 


C  ¥ 

C*1  **  111*  till 

SUBROUTINE  SUCCESS ( SI D * MONTH * HOUR > ALPHA > BET A * NRSS * COUNT) 

INTEGER  SID* MONTH* HOUR* I * Nr  COUNT 

REAL  ALPHA * BETA , NRSS  * RMS  >  X ( 15 ) ?  Y ( 15 ) *  EX  *  RS  *  WE  I BUL 
COMMON  NfXrY 

RMS- SORT ( NRSS /FLOAT ( N )  ) 

WRITE'*  A  f  100) 

WRITE* 6*200  > 

WRITE <6 *300) 

WRITE (6*400)  SID  *  MONTH  *  HOUR  *  ALPHA  *  BETA  *  RMS »  COUNT 
WRITE (5 *500  ' 

WRITE*  6  *  600) 

DO  10  1*1  fN 

EX-WEI BUL ( X ( I ) *  ALPHA* BETA) 

RS~Y  < I ;-EX 

WRITE (6 v 700 >  X  < I ) * Y ' I > *  EX  *  RS 
1 0  CONTINUE 

RETURN 

C 

100  FORMAT </// f T31» 33 ( ' *  ' ) *///) 

200  FORMAT  <  1  OX*  'STATION  ID'  r  5X>  '  MONTH'  *5X*  'HOUR  '  •  1  OX*  '  ALPHA  '  -  15>.  ► 

*  'BETA'  *  1 7X  f  'RMS' *11X*  '  ♦  OF  ITERATIONS') 

300  FORMAT  (  '  +  '  *  9  X  *  ' _ *5Xr  ' _ '  *5X*  ' _ '  * 10X*  ' .  M5NL 

T  ' _ '  *17X*  - _ '  *  llXt  '_  __  _ '  *//> 

400  FORMAT U2X* 16*  2<8X* 12 ) *6X  *G14  *  7  *  4X  *  G1 4  *  7  *  4X  *Gt 4  *  7* 1  IX  -  I  3  *  • /  • 

500  FORMAT <  T  3  8  *  'ENDPTS' *5X*  ' OBCUMFR ' * 10X* 'EXCUMFP' * 12X*  'RESIDUAL' > 

60"  FORMAT  (  M  '  *138*  ' _ '  *5X*  ' _ '  *  10Y*  ' _  '  *  1?X-  ..  .  ..  .  - 

t,  /  /  \ 

’■  ■■ ■  0  FORMAT  (  T  3 7  *  F  7  ♦  4  *  6  X  *  F  5  ♦  3  *  7  X  *  G 1 5  *  7  *  5  X  *  G 1  5 . 7  > 

END 


r:i  t  *  1  *11  *11111111*1 11 1111111.111111*111.1.111111111111111111111*111 1  till  *  * 


C  ^ 

C  SECANT  IS  A  SUBROUTINE  THAT  USES  THE  SECANT  METHOD  OF  ROOT  SOLOING  ♦ 
C  TO  FIND  THE  ROOT  OF  PSSEA  HOLDING  BETA  CONSTANT*  OP  TO  FIND  THE.  t 

C  ^'007  OF  PSSEB  HOLDING  ALPHA  CONSTANT  ♦  <THIS  MEANS  IT  WILL  FIND  THE  > 
C  BEST  ALPHA  FOR  A  GIVEN  BETA*  OR  THE  BEST  BETA  FOR  A  GIVEN  ALPHA*)  ■> 
r  COMMUNICATION  WITH  THE  PROCEDURE  OCCURS  THROUGH  THE  PARAMETER  LIST  * 
C  AND  T HE  COMMON  BLOCK*  IN  THE  PARAMETER  LIST?  ALPHA  AND  BETA  ARE  * 
■'  THE  CURRENT  VALUES  OF  THE  MODEL  PARAMETERS ♦  FARM  IS  THE  VARIABLE  > 
r,r:Nr.  OPTIMIZED  (EITHER  ALPHA  OR  BETA)*  AND  PDER  IS  THE  PARTIAL  * 

C  DERIVATIVE  FUNCTION  (EITHER  PSSEA  OR  PSSEB)*  CONVERGE  IS  A  LOGICAL  * 
C  VARIABLE  INDICATING  WHETHER  THE  SECANT  METHOD  CONVERGED  ON  A  ROOT*  * 
C  f0  SOLVE  FOR  THE  ROOT  OF  PSSEA*  SET  PARM-- ALPHA  AND  PDER=PSSEA  ♦  1  HE  * 


OPTIMIZED  VALUE  OF  ALPHA  WILL  BE  RETURNED*  TO  SOLVE  FOR  THE  POUT  OF* 
f  PSSEB?  SET  p  ARM’  BET  A  AND  PPEF;  -PSSEB  ♦  THE  OPTIMIZED  VALUE  OF  BETA  * 
r  i/rL'..  PF  RETURNED.  ,4 

* 

r  -*  fjM.  fttt  +  t****'**********^***.  *1111111111 1*111 111*1  If  limit  ft*  ¥  1  i 
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SUBROUTINE  SEC ANT ( ALPHA , BETA t FARM » PDER r CONVERGE ) 

REAL  ALPHA r BETA r FARM rPDER»X< 15) rY( 15) t T1 »T2fT3» DELTA 
INTEGER  Nr  I 
LOGICAL  CONVERGE 
COMMON  NrXrY 
C 

T2  =  PDER ( ALPHA  > BETA ) 

DELTA=. 001. 

F’ARM  =  PARM+ DELTA 
CONVERGE^. TRUE. 

r 

DO  10  1=1,15 

T 1  ••  PDER  ( ALPHA  » BETA) 

T3~T1 -T2 

IF  <ABS<T3)  ,LE. IE-15)  GOTO  15 
DELTA- ( -T1*DEL TA ) /<  T3  > 

PARM-FARM+ DELTA 

IF  ( ABS ( DELTA  > . LE ♦ IE-7 )  GOTO  20 

T2--T1. 

10  CONTINUE 

15  CONVERGE  =  . FALSE  . 

20  RETURN 

END 
r 

C  t  *  #  ♦  *  ♦  t  *  *  ♦  *  *  *  *  *  ♦  #  Y  ¥  ♦  *  *  #  *  *  *.  *#•*#***  *  ♦  m  *  1 1  #  *  f  #  *  *  if  t  #  #  #  *  H  t  *  *  '*  *  *  *  *  * 

•"  A- 

C  FSSEA  IS  A  REAL  FUNCTION  THAT  COMPUTES  THE  PARTIAL  DERIVATIVE  OF  SSEY 
::  WITH  respect  to  alpha.  COMMUNICATION  with  the  procedure  OCCURS  * 
C  THROUGH  THE  FUNCTION  NAME »  COMMON  BLOCK  r  AND  PARAMETER  LIST,  ALPHA  * 
C  AND  BETA  ARE  INPUT  PARAMETERS?  THE  VALUE  OF  THE  DERIVATIVE  IS  * 

C  RETURNED  THROUGH  THE  FUNCTION  NAME.  % 

(■'■*******♦***  *******  *4  ## #*###**♦♦  t#*#***#**##*##*##*^**#*###** >** 

REAL  FUNCTION  PSSEA ( ALPHA » BET  A  > 

REAL  ALPHA , BETA  t X ( 15 > , Y ( 15 >  r Tl » T2 
INTEGER  Nr  I 
COMMON  NrXrY 

f  ' 

PSSEA- 0,0 
HQ  10  I “  1  •  M 
T 1 ~  X (  [ ) *tPET  A 
r: "EXP ( -ALPHA*? 1  ) 

PSSEA-P5SEA+  <  Y  <  I )  - 1  ♦  0  +  T2 )  *  <  -T 1  *T2  > 

1  0  CONTINUE 

r 

RETURN 
E  M  r« 
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C***  X**  *****  **********  *******************************  X  *************  f  *  *  f 


C  » 
C  PSSEB  IS  A  REAL  FUNCTION  THAT  COMPUTES  THE  PARTIAL  DERIVATIVE  OF  * 
C  SSE  WITH  RESPECT  TO  BETA.  COMMUNICATION  WITH  THE  PROCEDURE  OCCURS  * 
C  THROUGH  THE  FUNCTION  NAME >  COMMON  BLOCK »  AND  PARAMETER  L I ST  V. 'HA  * 
C  AND  BETA  ARE  INPUT  PARAMETERS f  THE  VALUE  OF  THE  DERIVATIVE  I'  V 
C  RETURNED  THROUGH  THE  FUNCTION  NAME.  i 


C  **********  ♦**#****#*.*  ft************************************  *****'****** 


REAL  FUNCTION  PSSEB < ALPHA , BETA ) 

REAL  ALPHA r  BETA »  X  <15>fY(15)rTlrT2»T3*T4 
INTEGER  N » I 
COMMON  NfXfY 

PSSEB-0.0 
DO  1C  1=1 »M 
T 1  X  ( I  ’  *  *  BETA 
T2=EXP  < -  A  L  P  H  A  *  T  1  ) 
v3-  -ALPHA*AL.OG(X  (  I  )  >*T1*T2 
T4=Y ( I > - ! .0+12 
PSSEB =PSSEB+T3*T4 
CONTINUE 


RETURN 

END 
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NONLINEAR  REGRESSION  OF  THE  WEIBULL  MODEL  ON  VISIBILITY  DATA 
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4.  Some  Remarks  About  the  Program 


The  program  given  in  this  report  was  written  to  fit  the  Weibull 
distribution  to  visibility  data.  The  visibility  data  was  that 
contained  in  the  "Revised  Uniform  Summary  of  Weather  Observations" 
(RUSSWO's)  prepared  by  the  Data  Processing  Division  of  the  Air  Weather 
Service.  Some  changes  must  be  made  to  fit  another  distribution  to 
another  variable.  The  program  is  made  up  of  a  series  of  subroutines 
and  functions  so  that  these  may  be  altered  to  fit  the  users  need  without 
changing  the  flow  of  the  program. 

The  function  WEIBUL  must  be  replaced  by  the  desired  cumulative 
distribution  function  (CDF).  Also,  the  name  of  the  function,  WEIBUL, 
must  be  changed  throughout  the  program  if  the  name  of  the  function  is 
changed.  The  subroutine  GUESS  which  gives  the  initial  values  of  the 
parameters  must  be  changed  to  correspond  to  the  distribution  being 
used.  The  same  basic  idea  can  be  used.  However,  it  may  take  more 
programming  for  other  distributions  particularly  if  the  distribution 
is  not  in  closed  form.  The  subrout ine  CORVEC  must  be  changed  where 
the  partial  derivatives  DERA  and  DERB  occur.  Another  change  is  required 
in  the  functions  PSSEA  and  PSSEB  which  are  functions  which  take  partials 
with  respect  to  each  of  the  parameters  of  the  sum  of  squared  errors. 

The  appropriate  partials  must  replace  those  of  the  Weibull  distribution 
in  each  of  these  functions. 

The  program  was  designed  to  run  in  a  batch  environment,  and  the  rules 
of  standard  FORTRAN  -  IV  were  adhered  to  as  closely  as  possible.  The  only 
departures  from  FORTRAN  -  IV  are  the  use  of  the  IF-THEN-ELSE-ENDIF 
structure  commonly  found  in  FORTRAN  77,  and  the  use  of  the  exclamation  mark 
to  permit  comments  on  the  same  line  as  code.  Both  deviations  were  made 
merely  for  clarity’s  sake  in  the  program. 


5 .  Sample  Output 

A  sample  output  is  shown  in  page  14. 


6.  Reference 


Heuser,  M.  L.,  P.  N.  Somerville,  and  S.  J.  Bean  "Least  Squares 
Fitting  of  Distributions  Using  Non-linear  Regression". 
AFGL-TR-80-D362. 


j 


